home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aai.d64 / sm slide show (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  86 lines
  1. 0 DIMD$(500),F$(500)
  2. 10 GOSUB10000
  3. 11 FORI=832TO894:READA:POKEI,A:NEXTI
  4. 12 V=53248
  5. 13 POKEV+37,14:POKEV+38,14
  6. 14 POKEV+39,3
  7. 15 POKEV,25:POKEV+1,50
  8. 16 POKEV+21,1
  9. 17 POKE2040,13
  10. 18 POKEV+28,1
  11. 200 GOSUB 8000
  12. 210 FORI=1TON
  13. 220 IFLEFT$(D$(I),1)<>"[171]"THEN300
  14. 225 PRINT"[147]LOADING "D$(I)
  15. 230 OPEN2,8,2,D$(I)+",R"
  16. 240 GET#2,A$:IFA$=""THENA$=CHR$(0)
  17. 250 POKE53281,ASC(A$):POKE53280,PEEK(53281)
  18. 260 FORJ=1024TO2023:GET#2,A$:IFA$=""THENA$=CHR$(0)
  19. 270 POKEJ,45:POKEJ+54272,PEEK(646):POKEJ,ASC(A$)
  20. 280 GET#2,A$:IFA$=""THENA$=CHR$(0)
  21. 290 POKEJ+54272,ASC(A$):NEXTJ
  22. 295 CLOSE2
  23. 296 S=54272:POKES+1,64:POKES+6,250:POKES+4,33:POKES+24,15:POKES+4,32
  24. 298 GETA$:IFA$=""THEN298
  25. 299 IFA$=""ORA$="[145]"ORA$="[157]"ORA$=""ORA$=""THENGOSUB9000:GOTO298
  26. 300 NEXTI
  27. 400 END
  28. 8000 PRINT"[147][159]      READING DIRECTORY":PRINT:PRINT:PRINT:POKE53280,0:POKE53281,0
  29. 8120 CLOSE9:N$=CHR$(0)
  30. 8230 OPEN9,8,0,"$0":GET#9,A$,A$
  31. 8240 PRINT"                       ":YZ=0:GET#9,A$,A$:IFA$=""THENCLOSE9:GOTO8280
  32. 8250 GET#9,A$,B$:REM PRINTASC(A$+N$)+ASC(B$+N$)*256;
  33. 8260 GET#9,A$:PRINT""D$(X)
  34. 8261 IFA$=CHR$(34)THENYZ=0:GOTO8260
  35. 8262 IFA$=CHR$(32)THENYZ=YZ+1:GOTO8260
  36. 8263 IFYZ=1THENA$=" "+A$:YZ=0
  37. 8265 D$(X)=D$(X)+A$:IFA$<>""THEN8260
  38. 8270 X=X+1:GOTO8240
  39. 8280 PRINT"[147]":W=X-2:RESTORE
  40. 8290 FORJ=1TOW:L=LEN(D$(J))-3:IFMID$(D$(J),L+1,1)="R"THENNEXTJ
  41. 8291 F$(J)=LEFT$(D$(J),L)+","+MID$(D$(J),L+1,1):NEXT
  42. 8295 PRINT"[147]";:FORN=1TOW:P$=F$(N):D$(N)=P$
  43. 8296 REM PRINT"";:PRINT#5,CHR$(T%(ASC("U"))):FORPA=1TO2000:NEXTPA
  44. 8297 L=LEN(P$):FT$=RIGHT$(P$,1):P$=LEFT$(P$,L-2)
  45. 8298 REM PRINT#5,CHR$(T%(ASC(FT$))):FORPA=1TO2000:NEXTPA
  46. 8300 REM FORJ=1TOLEN(P$):H$=MID$(P$,J,1):IF(ASC(H$)AND127)<32THENH$=" "
  47. 8310 H$=FT$:REM PRINTH$;:NEXTJ:O=1:H$=FT$
  48. 8315 IFH$="S"ORH$="U"THENO=2
  49. 8335 P$=P$+","+FT$:PRINTP$
  50. 8365 NEXTN
  51. 8380 RETURN
  52. 9000 IFA$=""THENPOKEV+1,(PEEK(V+1)+1)AND255
  53. 9010 IFA$="[145]"THENPOKEV+1,(PEEK(V+1)-1)AND255
  54. 9020 IFA$=""THENPOKEV,(PEEK(V)+1)AND255
  55. 9030 IFA$="[157]"THENPOKEV,(PEEK(V)-1)AND255
  56. 9035 IFA$=""THENPOKEV,25:POKEV+1,50
  57. 9040 RETURN
  58. 9041 DATA042,170,170,085,085,086,096,024
  59. 9042 DATA006,064,024,004,000,024,000,000
  60. 9043 DATA024,000,000,102,000,001,129,128
  61. 9044 DATA006,000,096,024,000,024,096,000
  62. 9045 DATA006,096,000,006,096,024,006,096
  63. 9046 DATA024,006,085,085,084,000,000,000
  64. 9047 DATA000,000,000,000,000,000,000,000
  65. 9048 DATA000,000,000,000,000,000,000,254
  66. 10000 PRINT"[147]"
  67. 10005 PRINT"          [169]                [206][146]                      [153]      ";
  68. 10010 PRINT"[153]            [146]                      [153] [158]               [153]  [146]";
  69. 10020 PRINT"                      [153] [158] SM SLIDE SHOW[158] [153]  [146]             ";
  70. 10030 PRINT"         [153] [158]               [153]  [146]                      [153]    ";
  71. 10040 PRINT"[153]             [146][169]                                           ";
  72. 10050 PRINT"                                                             ";
  73. 10060 PRINT"                                                             ";
  74. 10070 PRINT"                                                             ";
  75. 10080 PRINT"                                                             ";
  76. 10090 PRINT"                                                             ";
  77. 10100 PRINT"                            [169]                             [206][146]";
  78. 10110 PRINT"         [154]                               [146]         [154] [146] [159][175][175]";
  79. 10120 PRINT"[159][175][175]          [175][175][175][175]         [154]  [146]         [154] [146]    [159][206]          ";
  80. 10130 PRINT"[159][205]            [154]  [146]         [154] [146]   [159][206]            [205]          ";
  81. 10140 PRINT" [154]  [146]         [154] [146]  [159][206]              [205]          [154]  [146]      ";
  82. 10150 PRINT"   [154] [146] [159][206]    IPTIGHT     [205] OFTWARE [154]  [146]         [154] [146] [159][183][183][183][183]";
  83. 10160 PRINT"          [159][183][183][183][183]         [154]  [146]         [154]      HOWARD CAMPBEL";
  84. 10170 PRINT"[154]L II      [146][169]                                          ";
  85. 10180 RETURN
  86.